Chip: 25 Years Anniversary/CHIP_25Jahre_Jubilaeum.iso/downloads/388320/MailWash.exe/{app}/MailWasher.exe/0/RCDATA/TREGISTRATIONFORM/TREGISTRATIONFORM.txt

Text File | 2003-03-07 | 7KB | 308 lines

object RegistrationForm: TRegistrationForm
  Left = 651
  Top = 508
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Registration'
  ClientHeight = 317
  ClientWidth = 374
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 16
    Top = 48
    Width = 28
    Height = 21
    AutoSize = True
    Picture.Data = {<image000.bmp>}
  end
  object Label9: TLabel
    Left = 16
    Top = 8
    Width = 283
    Height = 13
    Caption = 'You can have a registered version of SpamBuster right now!'
  end
  object debugLabel: TLabel
    Left = 8
    Top = 288
    Width = 56
    Height = 13
    Caption = 'debugLabel'
  end
  object RichEdit1: TRichEdit
    Left = 56
    Top = 32
    Width = 313
    Height = 57
    TabStop = False
    BorderStyle = bsNone
    Color = clBtnFace
    Lines.Strings = (

        'Registration costs $10 US and in gratitude of your support we wi' +
        'll '
      'permanently remove the banner ads from this program. Enter '

        'your credit card details below and click the '#39'Register'#39' button. ' +
        'Note '
      'that your card details will be encrypted and kept secure.')
    ReadOnly = True
    TabOrder = 3
  end
  object RegisterButton: TButton
    Left = 64
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Register now'
    Default = True
    TabOrder = 0
    OnClick = RegisterButtonClick
  end
  object CancelButton: TButton
    Left = 288
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 1
    OnClick = CancelButtonClick
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 96
    Width = 353
    Height = 169
    Caption = ' Card information '
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 64
      Width = 48
      Height = 13
      Caption = 'Card type:'
    end
    object Label2: TLabel
      Left = 8
      Top = 104
      Width = 63
      Height = 13
      Caption = 'Card number:'
    end
    object Label3: TLabel
      Left = 8
      Top = 32
      Width = 31
      Height = 13
      Caption = 'Name:'
    end
    object Label4: TLabel
      Left = 112
      Top = 16
      Width = 51
      Height = 13
      Alignment = taCenter
      Caption = '(first name)'
    end
    object Label5: TLabel
      Left = 192
      Top = 16
      Width = 29
      Height = 13
      Alignment = taCenter
      Caption = '(initial)'
    end
    object Label6: TLabel
      Left = 256
      Top = 16
      Width = 46
      Height = 13
      Alignment = taCenter
      Caption = '(surname)'
    end
    object Label7: TLabel
      Left = 8
      Top = 136
      Width = 65
      Height = 13
      Caption = 'Valid through:'
    end
    object Label8: TLabel
      Left = 112
      Top = 133
      Width = 4
      Height = 20
      Caption = '/'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DigitsEdit1: TMaskEdit
      Left = 80
      Top = 104
      Width = 41
      Height = 21
      EditMask = '9999;1;0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      TabOrder = 5
      Text = '    '
      OnKeyDown = DigitsEditKeyDown
    end
    object VisaRadioButton: TRadioButton
      Left = 80
      Top = 64
      Width = 113
      Height = 17
      Caption = 'Visa'
      Checked = True
      TabOrder = 3
      TabStop = True
    end
    object MastercardRadioButton: TRadioButton
      Left = 80
      Top = 80
      Width = 113
      Height = 17
      Caption = 'Mastercard'
      TabOrder = 4
    end
    object FirstNameEdit: TEdit
      Left = 80
      Top = 32
      Width = 113
      Height = 21
      MaxLength = 20
      TabOrder = 0
    end
    object InitalEdit: TEdit
      Left = 200
      Top = 32
      Width = 17
      Height = 21
      MaxLength = 1
      TabOrder = 1
    end
    object SurnameEdit: TEdit
      Left = 224
      Top = 32
      Width = 113
      Height = 21
      MaxLength = 20
      TabOrder = 2
    end
    object MonthEdit: TMaskEdit
      Left = 80
      Top = 132
      Width = 25
      Height = 21
      EditMask = '99;1;0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 9
      Text = '  '
    end
    object YearEdit: TMaskEdit
      Left = 120
      Top = 132
      Width = 25
      Height = 21
      EditMask = '99;1;0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 10
      Text = '  '
    end
    object DigitsEdit2: TMaskEdit
      Tag = 1
      Left = 120
      Top = 104
      Width = 41
      Height = 21
      EditMask = '9999;1;0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      TabOrder = 6
      Text = '    '
      OnKeyDown = DigitsEditKeyDown
    end
    object DigitsEdit3: TMaskEdit
      Tag = 2
      Left = 160
      Top = 104
      Width = 41
      Height = 21
      EditMask = '9999;1;0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      TabOrder = 7
      Text = '    '
      OnKeyDown = DigitsEditKeyDown
    end
    object DigitsEdit4: TMaskEdit
      Tag = 3
      Left = 200
      Top = 104
      Width = 41
      Height = 21
      EditMask = '9999;1;0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier'
      Font.Style = []
      MaxLength = 4
      ParentFont = False
      TabOrder = 8
      Text = '    '
      OnKeyDown = DigitsEditKeyDown
    end
  end
  object ReRegisterButton: TButton
    Left = 152
    Top = 280
    Width = 123
    Height = 25
    Caption = 'Re-register (no charge)'
    TabOrder = 4
    OnClick = RegisterButtonClick
  end
end